home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / fortran / f2c-stab.9 / f2c-stab / f2c-stabs / make-f2c-stabs < prev    next >
Encoding:
Text File  |  1996-03-31  |  1.1 KB  |  38 lines
  1. #!/usr/local/bin/snow -f
  2.  
  3. ;; Copyright (c) 1996 Harvey J. Stein <abel@netvision.net.il>, and
  4. ;; eventually <hjstein@netvision.net.il>
  5. ;; All Rights Reserved.
  6. ;; 
  7. ;; This package is covered by the GNU GPL.  You can freely use and
  8. ;; distribute it as long as it stays under the GNU GPL, and as long as
  9. ;; you distribute all the corresponding source code, and as long as this
  10. ;; message and the above copyright notice remains.
  11.  
  12. (cond ((< *argc* 1)
  13.        (format #t "~a" "
  14. Usage:      make-f2c-stabs <si-info-files>
  15.  
  16. Reads each si-info file and writes out corresponding f2c-stabs files.
  17.  
  18. WARNING - All info is *appended* to the appropriate .el files.  If you
  19. want to recreate everything from scratch, you *must* remove the .el
  20. files first.
  21. \n")
  22.        (exit 1)))
  23.  
  24.  
  25. (require "si-fstabs-lib")
  26.  
  27. (define inc-file-regexp (string->regexp "^.*\.inc$"))
  28.  
  29. (define files-created ())
  30.  
  31. (for-each (lambda (fnam)
  32.         (with-input-from-file fnam
  33.           (lambda () (let loop ((si-decl (read)))
  34.                (unless (eof-object? si-decl)
  35.                    (build-and-add-f2c-stab-data si-decl)
  36.                    (loop (read)))))))
  37.       *argv*)
  38.